home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #8 / utv1n8s2.d64 / mr. lister (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  1KB  |  19 lines
  1. 0 rem"mr. lister loader               "
  2. 1 rem"copyright (c)1987 jon perregaux "
  3. 2 rem"published by softdisk publishing"
  4. 3 rem
  5. 4 ifz=0thenz=1:gosub6:load"lister.ldr",8,1
  6. 5 poke792,97:poke793,194:sys32512
  7. 6 poke53265,11:print"[147]":poke53280,0:poke53281,0
  8. 7 print"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":forx=1to5:print"[221]                                    [221]":next
  9. 8 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]":forx=1to9:print"[153][221]                                    [221]":next:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  10. 9 [153]""[163]7)"open(NULL)lease select input device":[153][163]7)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[153]"(NULL)ress (NULL)(NULL)atnlenval peekatn(NULL) to change selection
  11. 10 printtab(9)"[208]ress [210][197][212][213][210][206] to select":printtab(6)"[208]ress [198]8 to return to [213]p[212]ime
  12. 11 [153]"openortantantantantantantantantantan^"[163]25)"ortantantantantantantantantantan^":[153]"(NULL)print mid$oystick open(NULL)"[163]25)"(NULL)print1351 (NULL)ouseopen(NULL)":[153]"/tantantantantantantantantantanexp"[163]25)"/tantantantantantantantantantanexp
  13. 12 print"[150]";:ifcs=0thenprinttab(3)"[176][192][192][192][192][192][192][192][192][192][192][174][157][157][157][157][157][157][157][157][157][157][157][157][221] [202]oystick [150][221][157][157][157][157][157][157][157][157][157][157][157][157][173][192][192][192][192][192][192][192][192][192][192][189]
  14. 13 [139]cs[178]1[167][153][163]25)"ortantantantantantantantantantan^cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL)1351 (NULL)ousedef(NULL)cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd/tantantantantantantantantantanexp
  15. 14 poke53265,27:poke198,0:wait198,1:getx$:ifx$=" "thencs=cs+1and1:goto11
  16. 15 ifx$="[140]"thensys32772
  17. 16 ifx$<>chr$(13)then14
  18. 17 poke900,cs:print"":forx=1to5:print"[159]                                    ":next:printtab(6)"[159][145][145][145][208][204][197][193][211][197] [215][193][201][212]--[204][207][193][196][201][206][199] [208][210][207][199][210][193][205]":return
  19.